program p9_1;
const n:integer = 10; {should be 365}
var s:record
            day:string[42];
	    month:shortint;
	    temp:real;
      end;
    avg:array[1..12] of record
	    temp:real;
	    count:shortint;
	    end;
    c:char;
    i,j:shortint;

begin
FOR J:=1 TO N DO BEGIN
	write('[',j:2,'/',n,'] >> ');
	i:=0;
	repeat
		read(c); inc(i);
		until i=3;
	readln(s.month,s.temp);
	avg[s.month].temp:=(avg[s.month].temp * avg[s.month].count + s.temp) / (avg[s.month].count+1);
	inc(avg[s.month].count);
END;

for i:=1 to 12 do begin
	writeln(' ( ',i:2,' ) ',avg[i].temp:5:5,avg[i].count:5);
	end;
end.
